-- background: 2731 from stack: in.1
-- bmap block id: 2115
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----


on openBackground
  hide field "type"

  pass openBackground
end openBackground



on openCard

  ClearTypButtons


  if field "type" = "COMEDY" then
    set hilite of background button "COMEDY" to true
    set textStyle of background button "COMEDY" to Bold
  else if field "type" = "DRAMA" then
    set hilite of background button "DRAMA" to true
    set textStyle of background button "DRAMA" to Bold
  else if field "type" = "ADVENTURE" then
    set hilite of background button "ADVENTURE" to true
    set textStyle of background button "ADVENTURE" to Bold
  else if field "type" = "HORROR" then
    set hilite of background button "HORROR" to true
    set textStyle of background button "HORROR" to Bold
  else if field "type" = "CHILDREN" then
    set hilite of background button "CHILDREN" to true
    set textStyle of background button "CHILDREN" to Bold
  END IF

  openStack

  pass openCard
end openCard



on ClearTypButtons
  set hilite    of background button "COMEDY"    to false
  set hilite    of background button "DRAMA" to false
  set hilite    of background button "ADVENTURE"      to false
  set hilite    of background button "HORROR"        to false
  set hilite    of background button "CHILDREN"         to false

  set textStyle of background button "COMEDY"    to plain
  set textStyle of background button "DRAMA" to plain
  set textStyle of background button "ADVENTURE"      to plain
  set textStyle of background button "HORROR"        to plain
  set textStyle of background button "CHILDREN"         to plain

end ClearTypButtons



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=91 top=296 right=319 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=17 top=296 right=319 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to prev card
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=15 top=27 right=65 bottom=53
-- title width / last selected line: 0
-- icon id / first selected line: 21576 / 21576
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MOVIE STACK
----- HyperTalk script -----
on mouseUp
  go to stack "THE MOVIE STACK 1.1"
end mouseUp




-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=463 top=27 right=48 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go Home
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 19 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=62 top=89 right=115 bottom=387
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 33
-- text size: 14
-- style flags: 0
-- line height: 21
-- part name: TITLE


-- part 20 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=63 top=118 right=141 bottom=146
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 33
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: DATE


-- part 21 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=234 top=137 right=212 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 34
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CREDITS & INFO


-- part 32 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=123 top=235 right=320 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 34
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: REVIEW


-- part 34 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=66 top=189 right=209 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: THEATRE


-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=58 top=27 right=61 bottom=97
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  answer "Sort all cards of this stack according to:" with "MOVIE" or "THEATRE" or "DATE"
  if it is "MOVIE NAME"
  then sort by first word of first line of field "TITLE"
else if it is "THEATRE"
then sort by FIRST word of first line of field "THEATRE"
else if it is "DATE"
then sort by datetime of first line of field "DATE"
end mouseUp



-- part 45 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=18 top=257 right=291 bottom=117
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 14
-- text size: 24
-- style flags: 256
-- line height: 32
-- part name: SCORE


-- part 46 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=415 top=95 right=134 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 15
-- text size: 24
-- style flags: 256
-- line height: 32
-- part name: RATING


-- part 48 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=108 top=147 right=167 bottom=144
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ON TAPE?


-- part 49 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=12 top=70 right=84 bottom=88
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: COMEDY
----- HyperTalk script -----
on mouseUp
  put "COMEDY" into field "type"
  ClearTypButtons
  set hilite of background button "COMEDY" to true
  set textStyle of background button "COMEDY" to Bold
end mouseUp



-- part 50 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=87 top=70 right=84 bottom=157
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DRAMA
----- HyperTalk script -----
on mouseUp
  put "DRAMA" into field "type"
  ClearTypButtons
  set hilite of background button "DRAMA" to true
  set textStyle of background button "DRAMA" to Bold
end mouseUp



-- part 51 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=156 top=70 right=84 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: ADVENTURE
----- HyperTalk script -----
on mouseUp
  put "ADVENTURE" into field "type"
  ClearTypButtons
  set hilite of background button "ADVENTURE" to true
  set textStyle of background button "ADVENTURE" to Bold
end mouseUp



-- part 52 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=254 top=70 right=84 bottom=331
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HORROR
----- HyperTalk script -----
on mouseUp
  put "HORROR" into field "type"
  ClearTypButtons
  set hilite of background button "HORROR" to true
  set textStyle of background button "HORROR" to Bold
end mouseUp



-- part 53 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=330 top=70 right=84 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CHILDREN
----- HyperTalk script -----
on mouseUp
  put "CHILDREN" into field "type"
  ClearTypButtons
  set hilite of background button "CHILDREN" to true
  set textStyle of background button "CHILDREN" to Bold
end mouseUp



-- part 54 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=126 top=40 right=52 bottom=138
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TYPE


-- part 55 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=115 top=30 right=64 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button


-- part 56 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=370 top=26 right=64 bottom=416
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  global key
  ask "Enter word or name you're looking for:" with key
  if it is not empty then
    go to next card
    find it
    put it into key
  end if
end mouseUp



-- part 57 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=418 top=29 right=59 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  visual effect dissolve very fast to card
  show all cards
end mouseUp



-- part 58 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=51 top=295 right=319 bottom=81
-- title width / last selected line: 0
-- icon id / first selected line: 1009 / 1009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MUSIC
----- HyperTalk script -----
on mouseUp
  play harpsichord faster E G B D F E G B D F C D C D E F G
end mouseUp



-- part 59 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=15 top=29 right=321 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 34
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: top


-- part 61 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=18 top=32 right=316 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BOTTOM


-- part 62 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=204 top=286 right=308 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GO BACK
----- HyperTalk script -----
on mouseUp
  play boing faster b g e
  Hide field "BOTTOM"
  hide BKGND button "GO BACK"
  SHOW BKGND BUTTON "MORE"
  SHOW BKGND FIELD "top"
  SHOW BKGND FIELD "ME"
  hide BKGND button "ONWARD TO STACK!"
end mouseUp



-- part 63 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=203 top=287 right=309 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MORE
----- HyperTalk script -----
on mouseUp
  play boing faster b g a
  show BKGND BUTTON "GO BACK"
  show field "BOTTOM"
  HIDE BKGND BUTTON "MORE"
  hide bkgnd field "me"
  show bkgnd button "ONWARD TO STACK!"
end mouseUp



-- part 64 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=171 top=35 right=58 bottom=326
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: THE MOVIE STACK
----- HyperTalk script -----
on mouseUp
  play boing e
  SHOW BKGND FIELD "top"
  HIDE BKGND FIELD "BOTTOM"
  SHOW BKGND BUTTON "MORE"
  SHOW BKGND FIELD "top"

  SHOW BKGND BUTTON "GO BACK"
  SHOW BKGND FIELD "ME"

  hide bkgnd button "THE MOVIE STACK"
  hide bkgnd button "ONWARD TO STACK!"
end mouseUp






-- part 65 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=331 top=284 right=306 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ONWARD TO STACK!
----- HyperTalk script -----
on mouseUp
  play boing faster E G B
  hide BKGND BUTTON "MORE"
  hide BKGND BUTTON "GO BACK"
  hide BKGND FIELD "top"
  hide BKGND FIELD "BOTTOM"
  SHOW bkgnd button "THE MOVIE STACK"
  HIDE BKGND BUTTON "ONWARD TO STACK!"
  hide BKGND FIELD "ME"

end mouseUp



-- part 68 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=171 top=200 right=284 bottom=331
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 198
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: me